home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ShareWare OnLine 2
/
ShareWare OnLine Volume 2 (CMS Software)(1993).iso
/
misc
/
ue312cmd.zip
/
FILTER.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-04-22
|
2KB
|
72 lines
; FILTER.CMD: Filter a change through a lot of files
; written for MicroEMACS 3.12
;
; This is one incredably usefull command file for filtering changes
; in a large collection of files (Like all the MicroEMACS source files)
;
; To use this,
;
; 1) modify the marked section to make what changes to the files
; you want to happen.
; 2) start EMACS and type M-X source <ret> filter to start the filter
; 3) step back. Get a cup of coffee (if there are a lot of files).
; Enjoy.
;Make the file list first
set %filemask @"What files to be filtered? "
show-files %filemask
select-buffer "File List"
beginning-of-file
!while &equ $curchar 46
1 kill-to-end-of-line
!endwhile
end-of-file
set-mark
previous-line
kill-region
write-file "flist"
unmark-buffer
;Set up to run through the files
delete-other-windows
find-file flist
beginning-of-file
select-buffer main
add-global-mode magic
set %cfile #flist
!while ¬ &seq %cfile "<END>"
find-file %cfile
set %b $cbufname
update-screen
;**** Here is where to make changes to specify the ****
;**** commands to run on each file ****
;**** Below is an such an example ****
;query-replace-string is good to use for comfirmations
;replace-string lets it all run automatically!!
query-replace-string "3\.[0-9][0-9]" "3.12"
beginning-of-file
replace-string "nsearch" "search"
beginning-of-file
;Save the Results!
update-screen
save-file
;Dump the already saved buffer
select-buffer main
delete-buffer %b
;on to the next file in the file list
set %cfile #flist
!endwhile
*endit
print "[All Done]~n"
exit-emacs